home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / cees-3dartist.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  2.5 KB  |  69 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║ 3D-Artist.ls    │   (c) C.J. van der Mark       ║
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #╚═════════════════════════════════════════════════╝
  8. #
  9. #
  10. 10
  11. 20
  12. 10
  13. X
  14. X=≥ΣDArTisT≤
  15. ≥=[""
  16. ≤=]c-(135)zzzzzzzc-(135)>(140)PZZZZZZZZZZ(20)Pw
  17. w=-(180)zzzzzzzz+(180)czzz-(90)czz^(90)<(-180)zz-(90)???ZpZZpZZpZZpZZZZZZZZZpZZpZZpZZqZZqZZqqqqZq?Zq?Zq?Z!!!
  18. Σ=+(90)uu+(45)u+(45)u+(90)uu+(180)zz+(90)u+(45)u+(45)uu
  19. D=-(180)''zzzzz""-(90)"(1.2)xuuu'(.87)+(90)u+(45)u+(45)uu+(45)u+(45)u
  20. A=-(180)"zzzz'u-(66)uuuu-(114)u''-(22.5)u-(22.5)u-(180)u+(22.5)u+(22.5)""u+(66)uu+(114)''uu-(180)zz""+(66)uu
  21. r=-(66)''''''''''zz""""""""""-(90)xuu+(70)''''''''''u+(20)u+(20)u-(180)z-(20)z-(20)z""""""""""-(70)zx"
  22. T=-(90)z''''''''''z''''''u-(45)u-(180)z+(45)""z""""""""""+(90)uu[-(100)'''''''''''''u][+(90)''''u]u""
  23. i=-(180)zzz-(90)z-(90)xxx'uu''''''''''''z[-(90)?????''''''u][+(90)?????''''''u]-(180)z""""""""""""zz
  24. s=-(90)''''z"''-(90)xx+(90)u''''-(45)u-(45)u-(45)u-(45)u+(45)u+(45)u+(45)u+(45)""""u+(90)''zzz+(90)zz-(180)'''''''z+(90)"""""""""""""""
  25. x=''''''''''''''z""""""""""""""
  26. p=t(0.03)
  27. q=t(-0.05)
  28. P=[ZZZZZZZZZZ[E][B][e][b]]
  29. E=[+RE{.][+RG{.].C.}}
  30. B=[-RB{.][-RG{.].C.}}
  31. C=t(0.05)ff(0.95)C
  32. G=t(0.05)gg(0.52)G
  33. e=[+Re{.][+Rd{.].h.}}
  34. b=[-Rb{.][-Rd{.].h.}}
  35. h=t!(0.8)F(0.95)h
  36. d=t!(0.8)F(0.72)d
  37. R=(10)
  38. #
  39. #k=[K]$''''''''''!!!!Z{[+++l.][++ll.][+lll.][llll.][-lll.][--ll.][---l.]}
  40. #K=$''''''''''!!!!Z[+++L.][++LL.][+LLL.][LLLL.][-LLL.][--LL.][---L.]
  41. #l=t!''''''''''''g
  42. #L=t!''''''''''''F
  43. #
  44. #__Turn and twist the spiral to the correct position so they'll fit together.
  45. #__Then place the Z in the center of it as the axis.
  46. #
  47. u=[v]+(90)^(105)''''''''''z-(90)""""""""""??????>(-15)Z>(15)!!!!!!-(90)''''''''''z""""""""""+(90)<(105)
  48. #
  49. #__create the spiral and decrease size until
  50. #__it is as big as a normal Z
  51. #
  52. v='''''''''''&(45)+(72)kkkkkkk[-(54)o]kkkkkkk[-(54)o]
  53. #
  54. #__One block to build the spiral with.
  55. #__With 'Z' at the end of the 'k' definition, the spiral
  56. #__becomes visible, with 'z' at the end only flowers are visible.
  57. #
  58. k=+(36.57)^(36.8)Z
  59. #
  60. #---------------------------------------------------------------------------
  61. #__Flower section__
  62. #
  63. # whole flower
  64. o='''''''''''''''''''''[[-(180)Z]&!ccZ>y>>y>>y>>y>>y>>y>>y>>y>>y>]
  65. # petals
  66. y=[[ZZccc&(80)'''{-ff+ff|-ff+ff}]>(20)[ZZ&(60)'c(3){-f+f|-f+f}]] #[ZZcccccc&(35)''''{-f+f|-f+f}]]
  67. #
  68. @
  69.